# NOT RUN {
# Load data
data(gdp_mcmc)
# Histogram of forecast draws for 2012Q4
hist(gdp_mcmc$forecasts[, "X2012Q4"], main = "Forecast draws for 2012:Q4", xlab = "Value")
# Add vertical line at realizing value
abline(v = gdp_mcmc$actuals[, "X2012Q4"], lwd = 3)
# }
Run the code above in your browser using DataLab